Progression Guide

El7Z UP Members Progression

library(ggplot2)
library(readxl)
QP_Ranking_EL7ZUP <- read_excel("QP-Ranking-EL7ZUP.xlsx")

gfg_plot <- ggplot(QP_Ranking_EL7ZUP, aes(x=Episode, y=Ranking, group=Name, color=Name)) +
  geom_line() +
  geom_point() +
  xlab("Episode Number") +
  ylab("Rank") +
  scale_x_continuous(breaks=1:10) +
  scale_y_continuous(trans="reverse", breaks=1:28) +
  facet_wrap(~Name)

gfg_plot

Entire Cast Progression

library(ggplot2)
library(readxl)
QP_Ranking <- read_excel("QP-Ranking.xlsx")

gfg_plot2 <- ggplot(QP_Ranking, aes(x=episode, y=ranking, group=name, color=name)) +
  geom_line() +
  geom_point() +
  xlab("Episode Number") +
  ylab("Rank") +
  scale_x_continuous(breaks=1:10) +
  scale_y_continuous(trans="reverse", breaks=1:28) +
  facet_wrap(~name)

gfg_plot2

Grouped Dependent on their Signal Song Group

  • Note: Despite leaving before the performance, Chaeyeon and Haein are credited as being members of PICK on the top and DROP The Beat respectively.
library(ggplot2)
library(readxl)
QP_Ranking <- read_excel("QP-Ranking.xlsx")

gfg_plot3 <- ggplot(QP_Ranking, aes(x=episode, y=ranking, group=name, color=signal_song)) +
  geom_line() +
  geom_point() +
  xlab("Episode Number") +
  ylab("Rank") +
  scale_x_continuous(breaks=1:10) +
  scale_y_continuous(trans="reverse", breaks=1:28) +
  facet_wrap(~signal_song)

gfg_plot3

Grouped Dependent on their Initial Groups

  • Note: Miru and Fye are credited as being from NMB48 and BNK48 respectively.
library(ggplot2)
library(readxl)
QP_Ranking <- read_excel("QP-Ranking.xlsx")

gfg_plot4 <- ggplot(QP_Ranking, aes(x=episode, y=ranking, group=name, color=initial_group)) +
  geom_line() +
  geom_point() +
  xlab("Episode Number") +
  ylab("Rank") +
  scale_x_continuous(breaks=1:10) +
  scale_y_continuous(trans="reverse", breaks=1:28) +
  facet_wrap(~initial_group)

gfg_plot4

Grouped Dependent on their Remix Battle Songs

library(ggplot2)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(readxl)
QP_Ranking <- read_excel("QP-Ranking.xlsx")
QP_Ranking <- filter(QP_Ranking, remix_song != 'NA')

gfg_plot5 <- ggplot(QP_Ranking, aes(x=episode, y=ranking, group=name, color=remix_song)) +
  geom_line() +
  geom_point() +
  xlab("Episode Number") +
  ylab("Rank") +
  scale_x_continuous(breaks=1:10) +
  scale_y_continuous(trans="reverse", breaks=1:28) +
  facet_wrap(~remix_song)

gfg_plot5